home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / bat2exec.zip / BAT2EXEC.BAS < prev    next >
BASIC Source File  |  1990-07-03  |  31KB  |  391 lines
  1. 100 REM - BASIC PROGRAM TO CREATE BAT2EXEC.COM
  2. 110 CLS:PRINT "Creating BAT2EXEC.COM": OPEN "BAT2EXEC.COM" AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   372
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   372 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "BAT2EXEC.COM created successfully": SYSTEM
  17. 260 PRINT: PRINT "BAT2EXEC.COM is not valid!": END
  18. 270 DATA E9, DA,  2,  D,  A, 42, 41, 54, 32, 43, 4F, 4D, 20, 31, 2E, 30,   473
  19. 280 DATA 20, 28, 63, 29, 20, 31, 39, 39, 30, 20, 5A, 69, 66, 66, 20, 43,   3D9
  20. 290 DATA 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F,   658
  21. 300 DATA 2E,  A,  D, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE,   542
  22. 310 DATA 20, 44, 6F, 75, 67, 6C, 61, 73, 20, 42, 6F, 6C, 69, 6E, 67,  A,   574
  23. 320 DATA  D, 24, 1A,  0,  1,  0,  0, 49, 46,  0, 52, 45, 4D,  0, 46, 4F,   254
  24. 330 DATA 52,  0, 45, 43, 48, 4F,  0, 47, 4F, 54, 4F,  0, 45, 58, 49, 54,   3E4
  25. 340 DATA  0, 50, 41, 55, 53, 45,  0, 53, 48, 49, 46, 54,  0, 53, 45, 54,   3E8
  26. 350 DATA  0, 43, 41, 4C, 4C,  0, 50, 41, 54, 48,  0, 50, 52, 4F, 4D, 50,   3D7
  27. 360 DATA 54,  0, 43, 44,  0, 4D, 44,  0, 52, 44,  0, 43, 4C, 53,  0, 44,   328
  28. 370 DATA 49, 52,  0, 44, 45, 4C,  0, 52, 45, 4E,  0, 56, 45, 52,  0, 56,   398
  29. 380 DATA 4F, 4C,  0, 43, 54, 54, 59,  0, 43, 48, 43, 50,  0, 54, 59, 50,   3FA
  30. 390 DATA 45,  0, 43, 4F, 50, 59,  0, 44, 41, 54, 45,  0, 54, 49, 4D, 45,   3CD
  31. 400 DATA  0, 45, 52, 41, 53, 45,  0, 43, 48, 44, 49, 52,  0, 4D, 4B, 44,   3B6
  32. 410 DATA 49, 52,  0, 52, 4D, 44, 49, 52,  0, 42, 52, 45, 41, 4B,  0, 52,   3D0
  33. 420 DATA 45, 4E, 41, 4D, 45,  0, 44, 45, 4C, 45, 54, 45,  0, 56, 45, 52,   406
  34. 430 DATA 49, 46, 59,  0, 43, 4F, 4D, 4D, 41, 4E, 44,  0,  0, E2,  7, 5E,   42E
  35. 440 DATA  C, 38,  9, CD,  B, 2A,  A, 5E,  C, 38,  C, 4B,  C, 94,  B, 4F,   34C
  36. 450 DATA  B, 94,  B, 94,  B, 4F,  B,  2,  B, AD,  A, 45, 52, 52, 4F, 52,   3F1
  37. 460 DATA 4C, 45, 56, 45, 4C, 45, 58, 49, 53, 54, 2F, 43, 20,  0,  0,  0,   397
  38. 470 DATA  0,  0,  2,  F,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, FF, FF,   20F
  39. 480 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  40. 490 DATA  0,  0, 54, 5E, 4D, 5E, 50, 5F, 24, 31, 2E, 21, 21, 21,  0,  0,   2F2
  41. 500 DATA  0, 54, 5E, 4D, 5E, 50, 5F, 24, 32, 2E, 21, 21, 21,  0, 38, 1A,   345
  42. 510 DATA  0, 40,  0,  0,  0,  0,  0,  0, 2E, 43, 4F, 4D,  0, 20, 20, 20,   1AD
  43. 520 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,  D,  A, 45, 72, 72, 6F,   2EF
  44. 530 DATA 72, 20, 69, 6E, 20, 6C, 69, 6E, 65, 20, 24, 4E, 65, 65, 64, 20,   511
  45. 540 DATA 44, 4F, 53, 20, 32, 2E, 30, 20, 6F, 72, 20, 67, 72, 65, 61, 74,   4CA
  46. 550 DATA 65, 72, 24,  D,  A, 53, 79, 6E, 74, 61, 78, 3A, 20, 42, 41, 54,   4CA
  47. 560 DATA 32, 43, 4F, 4D, 20, 5B, 66, 69, 6C, 65, 6E, 61, 6D, 65, 5D,  D,   537
  48. 570 DATA  A, 24, 43, 61, 6E, 27, 74, 20, 66, 69, 6E, 64, 20, 69, 6E, 70,   503
  49. 580 DATA 75, 74, 20, 66, 69, 6C, 65, 24, 4E, 6F, 74, 20, 65, 6E, 6F, 75,   5D5
  50. 590 DATA 67, 68, 20, 6D, 65, 6D, 6F, 72, 79, 24, 4E, 6F, 20, 69, 6E, 70,   5D0
  51. 600 DATA 75, 74, 20, 66, 69, 6C, 65, 20, 73, 70, 65, 63, 69, 66, 69, 65,   611
  52. 610 DATA 64, 24, 43, 4F, 4D, 20, 66, 69, 6C, 65, 20, 73, 69, 7A, 65, 20,   522
  53. 620 DATA 74, 6F, 6F, 20, 62, 69, 67, 24, 53, 79, 6E, 74, 61, 78, 20, 65,   5D4
  54. 630 DATA 72, 72, 6F, 72, 24, 43, 6F, 6D, 70, 69, 6C, 65, 72, 20, 64, 61,   609
  55. 640 DATA 74, 61, 20, 62, 75, 66, 66, 65, 72, 20, 66, 75, 6C, 6C, 24, 4C,   5B2
  56. 650 DATA 61, 62, 65, 6C, 20, 64, 65, 66, 69, 6E, 65, 64, 20, 6D, 6F, 72,   5F1
  57. 660 DATA 65, 20, 74, 68, 61, 6E, 20, 6F, 6E, 63, 65, 24, 4C, 61, 62, 65,   58D
  58. 670 DATA 6C, 20, 20, 20, 20, 20, 20, 20, 20, 20, 6E, 6F, 74, 20, 66, 6F,   3D2
  59. 680 DATA 75, 6E, 64, 24, 49, 6C, 6C, 65, 67, 61, 6C, 20, 64, 69, 73, 6B,   5F0
  60. 690 DATA 20, 73, 70, 65, 63, 69, 66, 69, 65, 64, 24, 46, 4F, 52, 20, 6C,   563
  61. 700 DATA 6F, 6F, 70, 73, 20, 63, 61, 6E, 6E, 6F, 74, 20, 62, 65, 20, 6E,   5D9
  62. 710 DATA 65, 73, 74, 65, 64, 24, 4E, 6F, 74, 20, 79, 65, 74, 20, 69, 6D,   5D2
  63. 720 DATA 70, 6C, 69, 6D, 65, 6E, 74, 65, 64, 24,  D,  A, 24, BA,  3,  1,   4DF
  64. 730 DATA B4,  9, CD, 21, FC, B4, 30, CD, 21, 86, C4, BA, AB,  2, 80, FC,   8A6
  65. 740 DATA  2, 72, 50, BC, 38, 1A, B4, 4A, BB,  0, 10, CD, 21, A1, 7E,  2,   5AA
  66. 750 DATA  3,  6, 80,  2, A3, 4A,  2, B4, 48, BB,  0, 10, CD, 21, BA, F8,   5E1
  67. 760 DATA  2, 72, 30, A3, 48,  2, B4, 48, BB,  0, 10, CD, 21, 72, 24, A3,   57F
  68. 770 DATA 52,  2, BE, 80,  0, 33, C9,  A,  C, 74, 1B, 46, 32, DB, E8, 55,   5C3
  69. 780 DATA  A, 72, 13, 8A,  4, 3C, 2F, 74,  7, E8, D3,  9, 72,  5, EB,  6,   52F
  70. 790 DATA BA, E2,  2, E9, 5A,  1, 8B, 36, 7E,  2, 8B, 3E, 4A,  2, 81, C7,   680
  71. 800 DATA 1E,  0, FF,  6, 86,  2, A0, 55,  1, A2, 56,  1, 32, DB, E8, 31,   5C0
  72. 810 DATA  A, 73,  6, 3C,  D, 74, EB, EB, 18, E8, 66,  2, 80, 3C, 40, 75,   5EF
  73. 820 DATA  6, C6,  6, 56,  1,  0, 46, E8, 4A,  1, 72,  2, EB, D4, E9, 1F,   5DD
  74. 830 DATA  1, E8, E3,  1, 89, 3E, 4C,  2, C4, 3E, 46,  2, BE, 2F,  F, B9,   5E1
  75. 840 DATA  5,  0, F3, A4, 89, 3E, 46,  2, C4, 3E, 50,  2, BE,  2,  F, 8B,   559
  76. 850 DATA 4C, FE, FF, 34, 83, C6,  4, F3, A4, 5E,  B, F6, 75, F1, BD, 1F,   902
  77. 860 DATA  0, B8,  0,  1,  3, C7, 26, 89, 46,  0, 8B, EF, 8B, 36, 4A,  2,   4FF
  78. 870 DATA 8B,  E, 4C,  2, 2B, CE,  3, C1, BB, 4E,  2, 8B, 17,  3, D3, 83,   5AA
  79. 880 DATA 3F, FF, 74, 24,  3, 1F, 83, 7F,  2, FF, 74,  5,  1, 47,  2, EB,   5A9
  80. 890 DATA EE, 8B, F3, 83, C6,  5, 33, C9, 8A, 4F,  4,  E,  7, BF, 82,  3,   6EC
  81. 900 DATA F3, A4, BA, 7C,  3, E9, A8,  0, F3, A4, 2B, 16, 4A,  2, 26, 89,   734
  82. 910 DATA 96, 16,  0, B8,  0,  1,  3, C7, 26, 89, 86,  0,  0, 8B,  E, 46,   443
  83. 920 DATA  2, 8B, 36, 44,  2, 8E, 1E, 48,  2, 2B, CE,  3, C1, 73,  6, BA,   4EF
  84. 930 DATA 22,  3, EB, 7C, 90, F3, A4,  E, 1F,  5,  0,  2, 72, F1, 25, FE,   66D
  85. 940 DATA FF, 26, 89, 86,  2,  0,  5,  2,  0, 26, 89, 86,  6,  0,  5,  2,   37F
  86. 950 DATA  1, 72, DC, 26, 89, 86,  8,  0,  5,  2,  1, 72, D2, 26, 89, 86,   50D
  87. 960 DATA  A,  0,  5,  0,  1, 72, C8, 89, 3E, 54,  2,  5,  F,  0, 72,  F,   2FC
  88. 970 DATA B1,  4, D3, E8, 26, 89, 86,  4,  0, 26, C6, 86, 1D,  0,  0, B4,   5EC
  89. 980 DATA 3C, 33, C9, BA, 8D,  2, CD, 21, 8B, D8, B4, 40, 1E, C5, 16, 50,   70F
  90. 990 DATA  2, 2E, 8B,  E, 54,  2, 2B, CA, CD, 21, 1F, B4, 3E, CD, 21, 32,   533
  91. 1000 DATA C0, 50, B4, 49, 2E, 8E,  6, 48,  2, CD, 21, 58, B4, 4C, CD, 21,   64D
  92. 1010 DATA  E, 1F, 83, 3E, 86,  2,  0, 74, 14, 52, BA, 9A,  2, E8, 24,  8,   4BA
  93. 1020 DATA A1, 86,  2, E8, 33,  8, BA, DA,  3, E8, 18,  8, 5A, E8, 1D,  8,   652
  94. 1030 DATA B0,  1, EB, CD, BB,  E,  0, 8A,  4, 3C, 3A, 74, 21, BB,  C,  0,   592
  95. 1040 DATA 3C, 25, 74, 1A, 8B, 44,  1, 3C, 3A, 75,  8, BB,  C,  0, 80, FC,   4F5
  96. 1050 DATA 20, 76,  B, E8, 55,  0, 57, BF, 57,  1, E8, 19,  0, 5F, 53, 83,   582
  97. 1060 DATA FB,  8, 77,  8, B3,  1, E8, 99,  8, 73,  1, 4E, 5B, D1, E3, 81,   711
  98. 1070 DATA C3,  D,  2, FF, 17, C3, 51,  6,  E,  7, 8B, D1, 33, DB, 56, 8B,   662
  99. 1080 DATA CA, F3, A6, 5E, 74, 1A, 43, 32, C0, 38, 45, FF, 75,  1, 4F, B9,   77E
  100. 1090 DATA  A,  0, F2, AE, 80, 3D,  0, 75, E5, BB,  D,  0, F9,  7, 59, C3,   6A5
  101. 1100 DATA 83, FB,  C, 72,  3, BB,  C,  0, F8, EB, F2, 57, 56,  6, 1E,  7,   673
  102. 1110 DATA 8B, FE, 33, C9, AC, 3C, 30, 72, 1A, 3C, 39, 76, 12, 3C, 41, 72,   615
  103. 1120 DATA 12, 3C, 5A, 76,  A, 3C, 61, 72,  A, 3C, 7A, 77,  6, 24, DF, AA,   521
  104. 1130 DATA 41, EB, E1,  7, 5E, 5F, C3, 80, 3E, 57,  2,  0, 74, 10, C6,  6,   5FB
  105. 1140 DATA 57,  2,  0, BB,  A, 18, E8, 1B,  7, 33, C9, E8, 38,  6, 80, 3E,   520
  106. 1150 DATA 58,  2,  0, 74, 10, C6,  6, 58,  2,  0, BB, B9, 17, E8,  4,  7,   482
  107. 1160 DATA 33, C9, E8, 21,  6, 80, 3E, 5C,  2,  0, 74, 15, 8B, 16, 5A,  2,   4AD
  108. 1170 DATA B9,  1,  0, BB, 2C, 18, E8, EB,  6, E8,  A,  6, C6,  6, 5C,  2,   5B4
  109. 1180 DATA  0, 80, 3E, 5F,  2,  0, 74, 19, 8B, 16, 5D,  2, 33,